home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / RASX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  903 b   |  12 lines
  1.  
  2. *                                                                               
  3. *MOVE A TO B (DOUBLE VAR) WITH N (CONST) BIT                                    
  4. *RIGHT ARITHMETIC SHIFT                                                         
  5. *                                                                               
  6. RASX  $MACRO  A,B,N     MOVE DOUBLE WITH ARITH. SHIFT                           
  7.       RLSH :A:+1,:B:+1,:N:                                                      
  8.       LAC  :A:,16-:N:   LOAD HIGH, RIGHT SHIFT                                  
  9.       SACH :B:,0        SAVE IN :B: HIGH                                        
  10.       OR   :B:+1        COMBINE WITH :B: LOW                                    
  11.       SACL :B:+1,0      SAVE BACK                                               
  12.       $END